home *** CD-ROM | disk | FTP | other *** search
/ Revista CD Expert 32 / CD Expert nº 32.iso / video / SMK.dir / 00005_Script_5 < prev    next >
Text File  |  1998-05-25  |  421b  |  19 lines
  1. on exitFrame
  2. --  800 x 600
  3.   -- play full-screen 
  4.   
  5.   set smk=new(xtra "smacker")
  6.   SmackSetDisplayMode(smk,4)
  7.   SmackOpen(smk,(the pathname)&"xtras\video.smk",1,0)
  8.   SmackSetPosition smk,-100,-66
  9.   SmackSetInterfaceKeys(smk,"\e\s\m")
  10.   SmackPlayLooped(smk,1)
  11.   set lastkey=SmackGetLastKey(smk)
  12.   SmackClose(smk)
  13.   
  14.   set smk=0
  15.   quit
  16.   --  updatestage
  17.   If lastkey="\e" then quit
  18.   go to the frame
  19. end